home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 6
/
CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso
/
cucd
/
games
/
doopsi
/
hd-install
/
doopsiinstall
< prev
next >
Wrap
Text File
|
1996-08-01
|
9KB
|
257 lines
;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
;\ /
;/ The Doopsi Installer \
;\ /
;/ written by: Andrea Galimberti \
;\ /
;/ $VER: Doopsi Installer V1.00 (1996) \
;\ /
;/ \
;\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
;* preamble
(set @app-name "Doopsi")
(set @user-level 2)
(procedure addslash (
(set len (- (strlen dest_dir) 1))
(if (= (substr dest_dir len 1) ":")
(set new_dest dest_dir)
(set new_dest (cat dest_dir "/"))
)
) ;end proc
)
;* messages
(if (= @language "italiano")
(
(set welcome_msg (cat "Benvenuti nel meraviglioso mondo di Doopsi!\n\n"
"Prima di iniziare dovete accertarvi di due cose: "
"primo, questo script di installazione Deve essere nella directory "
"dove avete messo gli archivi Programs.lha e Tutorial.lha, "
"altrimenti avrete un paio di noiosi errori \"File non trovato\"; "
"secondo, suppongo che la vostra Lha utility sia nel path, "
"altrimenti non posso trovarla.\n\n\n"
"Siete pronti? Iniziamo!"
)
)
(set selectdest_msg (cat "Selezionare la directory destinazione.\n"
"La directory Doopsi verrà creata automaticamente.")
)
(set selectfiles_msg "Selezionare i files da installare")
(set firstc_msg "Eseguibili Doopsi")
(set secondc_msg "Tutorial")
(set decprg_msg "Sto decomprimendo i Programmi in ")
(set dectut_msg "Sto decomprimendo il Tutorial in ")
(set deccat_msg "Sto decomprimendo i Cataloghi in ")
(set err_msg (cat "Si è verificato un errore!\n"
"(Vi avevo detto di stare attenti)\n\n")
)
(set notfound_msg "non trovato")
(set copyloc_msg (cat "Sto copiando \"locator.library\" nella "
"vostra directory LIBS:"
"(non preoccupatevi: solo se è una versione "
"più recente)")
)
(set copyreq_msg (cat "Sto copiando \"reqtools.library\" nella "
"vostra directory LIBS:"
"(non preoccupatevi: solo se è una versione "
"più recente)")
)
(set assign_msg (cat "\n Ora dovete assegnare Doopsi: alla directory "
"in cui avete copiato l'Editor. L'installer eseguirà questo "
"compito al vostro posto nel seguente passaggio."
)
)
(set users_msg (cat "Sto modificando la user-startup:\n\n\n"
"aggiungo la seguente riga:\n\n")
)
(set exitbad_msg (cat "Installazione non così completa: sembra si "
"sia verificato almeno un errore. Rileggete i suggerimenti che "
"appaiono all'inizio dell'installazione e riprovate (sarete più "
"fortunati).")
)
(set exitgood_msg (cat "Ora siete pronti per entrare in un nuovo "
"mondo: Doopsi sarà un'esperienza indimenticabile!\n\n"
"Buon divertimento!")
)
)
(
(set welcome_msg (cat "Welcome to the wonderful world of Doopsi!\n\n"
"Before we start you have to make sure of two things: "
"first, this installer script Must be in the directory where "
"you put the archives Programs.lha and Tutorial.lha, "
"otherwise you'll get a couple of annoying \"File not found\" "
"errors; second, I suppose your Lha utility is in your path, "
"otherwise I cannot find it.\n\n\n"
"Are you ready? Let's go!"
)
)
(set selectdest_msg (cat "Select destination directory.\n"
"The Doopsi directory will be automatically created.")
)
(set selectfiles_msg "Select which files to install")
(set firstc_msg "Doopsi executables")
(set secondc_msg "Tutorial")
(set decprg_msg "Decompressing Program files to ")
(set dectut_msg "Decompressing Tutorial files to ")
(set err_msg (cat "An error has occurred!\n"
"(Well, I told you to be careful)\n\n")
)
(set notfound_msg "not found")
(set copyloc_msg (cat "Copying \"locator.library\" to your "
"LIBS: directory\n"
"(don't worry: only if newer version)")
)
(set copyreq_msg (cat "Copying \"reqtools.library\" to your "
"LIBS: directory\n"
"(don't worry: only if newer version)")
)
(set assign_msg (cat "\n Now you need to assign Doopsi: to the "
"directory where you put the Doopsi Editor. The Installer will "
"do it for you in the next step."
)
)
(set users_msg (cat "Modifying the user-startup:\n\n\n adding "
"the following line:\n\n")
)
(set exitbad_msg (cat "Installation not so complete: it seems that "
"at least one error has occurred. Reread the hints that appear "
"at the beginning of the installation and retry (maybe you'll "
"be luckier).")
)
(set exitgood_msg (cat "You are now ready to enter a new world: "
"Doopsi will be an unforgettable experience!\n\n"
"Have fun!")
)
)
)
;* begin
(message welcome_msg)
(set oldpath (getassign ("Doopsi")))
(if (<> oldpath 0)
(
(set oldpath (pathonly oldpath))
(set default_dir oldpath)
)
(set default_dir "Doopsi")
)
(set dest_dir (askdir (prompt selectdest_msg)
(default default_dir)
(newpath) (disk)
(help @askdir-help)
)
)
(set @default-dest dest_dir)
(set user_selected (askoptions (prompt selectfiles_msg)
(choices firstc_msg
secondc_msg
)
(help @askoptions-help)
)
)
(if (BITAND %01 user_selected)
(
(working "\n\n" decprg_msg dest_dir)
(addslash)
(if (NOT (exists "Programs.lha" (noreq)))
(
(message err_msg "Programs.lha " notfound_msg)
(set an_error 1)
)
(
(run ("lha x Programs.lha \"%s\"" new_dest))
(if (= @language "italiano")
(
(working "\n\n" deccat_msg dest_dir)
(run ("lha x Catalogs.lha \"%s\"" new_dest))
)
)
(copylib (prompt copyloc_msg)
(source (cat new_dest "libs/locator.library"))
(dest "Libs:")
(nogauge)
(help @copylib-help)
(confirm)
)
(copylib (prompt copyreq_msg)
(source (cat new_dest "libs/reqtools.library"))
(dest "Libs:")
(nogauge)
(help @copylib-help)
(confirm)
)
(delete (cat new_dest "libs/locator.library")
(optional force)
(help @delete-help)
)
(delete (cat new_dest "libs/reqtools.library")
(optional force)
(help @delete-help)
)
(delete (cat new_dest "libs")
(optional force)
(help @delete-help)
)
(set flag 1)
)
);EndIf
)
)
(if (BITAND %10 user_selected)
(
(working "\n\n" dectut_msg dest_dir)
(if (NOT new_dest)
(addslash)
)
(if (NOT (exists "Tutorial.lha" (noreq)))
(
(message err_msg "Tutorial.lha " notfound_msg)
(set an_error 1)
)
(run ("lha x Tutorial.lha \"%s\"" new_dest))
)
)
)
(if (= flag 1)
(if (<> oldpath dest_dir)
(
(message assign_msg)
(startup @app-name (prompt users_msg
"Assign Doopsi: \""
(tackon dest_dir "DOOPSI") "\""
)
(command (cat "assign Doopsi: \""
(tackon dest_dir "DOOPSI") "\"")
)
(help @startup-help)
)
(makeassign "Doopsi" (tackon dest_dir "DOOPSI"))
)
)
)
;* epilogue
(if (= an_error 1)
(exit exitbad_msg)
(exit exitgood_msg)
)